Private Sub btnԷ_Click()
    
    If Len(txt.Value) = 0 Then Exit Sub

    With Range("B3")
        .Value = Val(Replace(txt.Value, ",", ""))
        .NumberFormat = "#,###"
    End With
    
End Sub